home *** CD-ROM | disk | FTP | other *** search
- object Form2: TForm2
- Left = 102
- Top = 55
- Width = 415
- Height = 375
- Caption = 'TIADBComboBox Demo'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 15
- object IADBComboBox1: TIADBComboBox
- Left = 89
- Top = 15
- Width = 229
- Height = 23
- DataField = 'NAME'
- DataSource = DataSource1
- ItemHeight = 15
- TabOrder = 0
- INISource = IASource1
- INISection = 'AnimalCombo'
- INIItem = 'AnimalList'
- end
- object IASRBitBtn1: TIASRBitBtn
- Left = 232
- Top = 76
- Width = 89
- Height = 33
- Caption = '&Restore'
- TabOrder = 1
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
- 337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
- 4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
- 44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
- 473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
- 7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
- 33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
- 33333333333737F333333333333C943333333333333737333333333333339733
- 3333333333337F333333333333339333333333333333733333330000}
- NumGlyphs = 2
- Style = bsNew
- INISource = IASource1
- SaveButton = False
- ActionAfterEvent = False
- end
- object IASRBitBtn2: TIASRBitBtn
- Left = 88
- Top = 76
- Width = 89
- Height = 33
- Caption = '&Save'
- TabOrder = 2
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
- 333333333337F3333333333333397333333333333337FF333333333333C94333
- 3333333333737F333333333333C9473333333333337373F3333333333CC94433
- 3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
- 333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
- 33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
- 4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
- 443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
- 444377733337F333777FC33333393333374373333337333333730000}
- NumGlyphs = 2
- Style = bsNew
- INISource = IASource1
- SaveButton = True
- ActionAfterEvent = False
- end
- object CheckBox1: TCheckBox
- Left = 156
- Top = 48
- Width = 93
- Height = 17
- Caption = 'Keep History'
- State = cbChecked
- TabOrder = 3
- OnClick = CheckBox1Click
- end
- object DBGrid1: TDBGrid
- Left = 8
- Top = 212
- Width = 393
- Height = 120
- DataSource = DataSource1
- TabOrder = 4
- TitleFont.Color = clBlack
- TitleFont.Height = -12
- TitleFont.Name = 'Arial'
- TitleFont.Style = []
- end
- object DBNavigator1: TDBNavigator
- Left = 8
- Top = 156
- Width = 391
- Height = 41
- DataSource = DataSource1
- TabOrder = 5
- end
- object Button1: TButton
- Left = 152
- Top = 120
- Width = 113
- Height = 29
- Caption = 'Clear List'
- TabOrder = 6
- OnClick = Button1Click
- end
- object IASource1: TIASource
- FileName = 'Animals.INI'
- Left = 8
- Top = 4
- end
- object Table1: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- TableName = 'ANIMALS.DBF'
- Left = 52
- Top = 4
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 96
- Top = 4
- end
- end
-